R Notebook

library(ggplot2)
library(plotly)
# library(data.table)

library(tidyverse)

Producción

Fuentes:

• Ministerio de Hacienda, Informes Sectoriales (1998-hoy).
• Secretaría de Energía - Regalias (1998-hoy)
• Secretaría de Energía - SESCO Downstream(1993-hoy)
• Anuario de combustibles (1911-1992)
• Kozulj y Pistonesi. Revista del Instituto de Economía Energética (IDEE) - Fundación Bariloche (1970 - 1988)
• EIA (1980 - 2019)

Producción de Crudo

La producción de petróleo crudo de largo plazo proviene del Anuario de Combustibles, de la cual contamos datos desde 1911 hasta 1992. Sus valores para el período 1980-1992 coinciden con los de EIA, por lo cual pueden usarse como fuentes alternativas. Asimismo, la evolución de SESCO es similar a la de EIA, salvo por pequeñas divergencias entre 2008 y 2013. La serie de Regalías presenta un nivel menor que las anteriores debido a las deducciones de producción que realizan las empresas para pagar un menor nivel de Regalías hacia las provincias donde realizan la producción. Por último, la serie del Ministerio de Economía coincide con Regalías en sus primeros años, luego presenta un nivel intermedio entre Regalías y SESCO y a partir de 2009 toma a SESCO como fuente. Salvo el Anuario de Combustibles, el resto de las series presentan datos hasta los últimos años. Por lo tanto, el criterio de selección para la serie de producción con la que se realizarán los cálculos es el siguiente:

• Criterio de cómputo para producicón de crudo:
  • 1911 a 1992: Anuario de combustibles
  • 1993 - actualidad: SESCO Downstream

# prod_crudo = fread("../resultados/data_viz/produccion_crudo.csv")

prod_crudo = read.csv("../resultados/data_viz/produccion_crudo.csv")

ggplotly(prod_crudo %>%

  mutate(regalias = case_when(regalias == 0 ~ NA_real_,
                                    T ~ regalias)) %>%
    select(-prod_crudo) %>%
  gather(key = fuente, value = valor, 4:ncol(.)) %>%
  ggplot(aes(anio, valor, color = fuente))+
  geom_line()+
  labs(title = "Gráfico 1. Producción de petróleo crudo.
        Argentina (1911 - 2020)",
       y = "Millones de Barriles",
       caption = "Fuente: elaboración propia en base a Anuario de Combustibles, EIA, Ministerio de Economía, Secretaría de Energía (Base Regalías y SESCO)")+
  # scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
  scale_y_continuous(labels = scales::unit_format(unit ="", scale = 1e-6))+
  theme(legend.position = "bottom"), width = 600, height = 400)

Tabla 1. Producción de petróleo crudo en Argentina según distintas fuentes (barriles)

Producción de Gas Natural

Al igual que en la producción de petróleo crudo, la serie de largo plazo de producción de gas proviene del Anuario de Combustibles, de la cual contamos datos desde 1913 hasta 1992. A diferencia del crudo, sus valores para el período 1980-1992 no coinciden con los de EIA, pero está última sí coincide con los de Regalías entre 1999 y 2015. En cambio, la serie de SESCO, tiende a continuar la evolución de EIA y Regalías, pero con el nivel del Anuario de Combustibles, por lo que ambos pares de series pueden empalmar coherentemente según su nivel. Nuevamente, los valores de la base de Regalías son menores debido a las deducciones de producción para tributar menos regalías. La serie del Ministerio de Economía toma los valores de SESCO.Por lo tanto, el criterio de selección para la serie de producción de gas para los cálculos es el siguiente:

• Criterio de cómputo de la producción de gas:
  • 1911 a 1992: Anuario de combustibles
  • 1993 en adelante: SESCO Downstream

prod_gas = read_csv("../resultados/data_viz/produccion_gas.csv",    col_types = cols(...1 = col_skip()), 
    locale = locale(encoding = "ISO-8859-1"))

ggplotly(prod_gas %>%
           select(-prod_gas) %>%
  mutate(regalias = case_when(regalias == 0 ~ NA_real_,
                                    T ~ as.double(regalias))) %>%
  gather(key = fuente, value = valor, 4:ncol(.)) %>%
  ggplot(aes(anio, valor, color = fuente))+
  geom_line()+
  labs(title = "Gráfico 2. Producción de gas.
        Argentina (1913 - 2020)",
       y = "MMBTU",
       caption = "Fuente: elaboración propia en base a Anuario de Combustibles, EIA, Ministerio de Economía, Secretaría de Energía (Base Regalías y SESCO)")+
  scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
  theme(legend.position = "bottom"), width = 600, height = 400)

Tabla 2. Producción de gas natural en Argentina según distintas fuentes (MMBTU)

Precio Mercado Interno

Fuentes:

• Base Ministerio de Hacienda, Informes Sectoriales
• Secretaría de Energía-Regalias
  • Por ausencia de información, el precio de regalias entre 1993 y 1998 es el precio total (es decir, es un ponderado que incluye también el precio del mercado externo). En los años posteriores, dicho precio sí corresponde al del mercado interno.
    
• Kozulj y Pistonesi. Revista del Instituto de Economía Energética (IDEE) - Fundación Bariloche (1970 - 1988). Precio oficial interno de la cuenca neuquina a tasa de cambio oficial. Las fuentes utilizadas de esta revista son Secretaria de Energía, YPF, Gas del Estado, Boletin Informativo de Techint y series propias de IDEE
• Memoria Anual y balances contables de YPF (varios años). Precio intero promedio resultante de la relación entre ventas y cantidades producidas.

Precio Mercado Interno de Crudo

• Criterio para precio_crudo:
  • 1963 a 1965: Kozulj y Pistonesi - Revista IDEE ajustado con el índice del precio del Anuario de YPF
  • 1989 a 1991: Anuario de YPF
  • 1966 a 1988: Kozulj y Pistonesi - Revista IDEE
  • 1992: MECON ajustado con la variación del Índice de precios internos al por mayor (IPIM)
  • 1993 en adelante: MECON

precio_mi_crudo = read.csv("../resultados/data_viz/precio_mi_crudo.csv")

ggplotly(precio_mi_crudo %>%
      select(-precio_crudo_mdoint) %>%
      mutate(regalias =
               case_when(regalias == 0 ~ NA_real_,
                          T ~ regalias)) %>%
  gather(key = variable, value = valor, 4:ncol(.)) %>%
  ggplot(aes(anio, valor, color = variable, shape = variable))+
  geom_line(alpha = 0.8)+
  labs(title = "Gráfico 3. Precios del mercado interno del petróleo crudo.
       Argentina (1963 - 2020)",
       y = "USD/barril")+
  theme(legend.position = "bottom"), width = 800, height = 600)

Tabla 3. Precio del mercado interno del petróleo crudo en Argentina según distintas fuentes (barriles)

Precio Mercado Interno de Gas Natural

• Precio Mercado Interno de gas:
  • 1963 - 1969 & 1989 - 1992: Anuario de YPF
  • 1970 - 1988: Kozulj y Pistonesi - Revista IDEE
  • 1993 en adelante: Secretaría de Energía - Base Regalías

Tabla 4. Precio del mercado interno del gas natural en Argentina según distintas fuentes (barriles)

Precios de Referencia del Mercado Mundial

Precios de exportación desde Argentina, benchmarks y Precios del mercado de EEUU (solo gas, internos y de expo/impo)

• Secretaría de Energía-Regalias) (2006-hoy)
• MECON. Serie corta y sin transformaciones
• EIA
  • Brent (1987-hoy)
  • WTI (1986-hoy)
  • Henry Hub (1997-hoy)
  • Precio Gas de Boca de Pozo en EEUU
• Inflation Data (1946-hoy)
• Eurostat
• Revista IDEE
  • Precio de Importación de gas natural desde Bolivia (1970-1988)
• UN Comtrade
  • Precio de Exportación e Importación de gas y crudo (a Bolivia y promedio mundial)
  • El precio impo bolivia de UN Comtrade cierra, da valores coherentes pero no deberia, dado que la conversión deberia realizarse multiplicando el precio en Mm3 por 1000 y ahí recién realizar la conversión

Precios de Referencia del Crudo

• Fuentes seleccionadas para precio_me_crudo:
  • entre 1962 y 1992: precio de exportación argentina de UN Comtrade (clasificación SITC as reported)
  • entre 1993-2001 y 2004-2014: precio de exportación argentina de Mecon
  • entre 2002 y 2003: precio de exportación de Argentina de UN Comtrade (Clasificación HS as reported)
  • 2014 en adelante: precio de exportación argentina de Secretaría de Energía (Regalías)
  • Valores faltantes previos a 1992 (1970 - 1985): Brent (Fuente: Inflation Data)

precios_referencia_y_expo_crudo = read.csv("../resultados/precio_expo_y_mdo_mundial_crudo.csv")
ggplotly(precios_referencia_y_expo_crudo %>%
  select(-c("...1", precio_me_crudo)) %>%
  gather(key = tipo_precio,
         value = valor,
         3:ncol(.)) %>%
  # filter(!(tipo_precio %in% c("precio_gas_bolivia_usd_idee", "precio_impo_gas_bolivia_MMBTU_comtrade",
  #                             "precio_expo_gas_comtrade", "precio_expo_gas_indec"))) %>%
  # filter(anio != 2002 & tipo_precio != "precio_expo_crudo_indec") %>%
  ggplot(aes(x = anio, y = valor, color = tipo_precio))+
  geom_line(alpha = 0.9) +
  theme(legend.position = "bottom")+
  labs(title = "Precios de exportación y referencia del mercado mundial del crudo",
       y = "USD/barriles") , width = 600, height = 400)

Diferencial de precios

# visualizacion diferencial de precio mdo interno
precio_crudo_mdoint <- readxl::read_excel("../resultados/argentina/renta_de_la_tierra_hidrocarburifera_arg.xlsx", sheet= "precio_interno_crudo")

precio_crudo_mdoext <- readxl::read_excel("../resultados/argentina/renta_de_la_tierra_hidrocarburifera_arg.xlsx", sheet= "precios_externo_crudo")

# precio_crudo_mdoint %>% 
#   select(anio, precio_crudo_mdoint) %>% 
#   left_join(precio_crudo_mdoext %>% 
#               select(anio,precio_me_crudo,  wti_eia ,brent_iea 
#                      ), by = "anio") %>% 
#   # select(-precio_crudo_mdoint) %>%
#   reshape2::melt(., id.vars="anio") %>% 
#   ggplot(aes(anio, value, color = variable))+
#   geom_line()+
#   labs(title = "Precio de venta al mercado interno, exportacion y referencias del petróleo crudo",
#        x = "Año", y = "USD/barril", caption = "Fuente: ver anexo metodológico")+
#   # theme_bw()+
#   theme_light()+
#   theme(legend.position = "bottom")+
#   scale_x_continuous(breaks = pretty(precio_crudo_mdoint$anio, n = 10)) 
# 
# ggsave("../resultados/argentina/precio_interno_vs_externo.jpg")

Precios de Referencia del Gas

• Criterio de precio_externo_gas:
  • Años 1964 y 1965: Precio de importación de gas proveniente de Bolivia hacia Argentina de UN Comtrade
  • 1966 en adelante: Precio de exportacion de gas desde Bolivia a Argentina de UN Comtrade
  • Datos faltantes para los años previos a 1963 y período 1968-1971

precio_mdomundial_gas_MMBTU = read.csv("../resultados/data_viz/precio_mdomundial_gas_MMBTU.csv")
graf_precio_mdo_mundial_gas_mmbtu <- precio_mdomundial_gas_MMBTU %>%
  filter(precio_externo_gas < 25) %>%
  gather(key = tipo_precio,
         value = valor,
         3:ncol(.)) %>%
  filter(
    valor < 25,
    !(tipo_precio %in% c("bp_oil_mix_mean_oecd"
                              # , "precio_expo_gas_indec"
                              # "precio_gas_bolivia_usd_idee",
                              # "precio_impo_gas_arg_bolivia_comtrade",
                              # "precio_expo_gas_comtrade"
                              ))) %>%
  # filter(!(tipo_precio %in% c("precio_expo_gas_indec"))) %>%
  ggplot(aes(x = anio, y = valor, color = tipo_precio))+
  geom_line() +
  # theme(legend.position = "bottom")+
  theme(legend.position = "right")+
  labs(title = "Precios de exportación y referencia del mercado mundial del gas",
       y = "USD/MMBTU")
ggplotly(graf_precio_mdo_mundial_gas_mmbtu, width = 600, height = 400)

Exportaciones e Importaciones

• Fuentes
  • SESCO Downstream
  • INDEC
  • MECON
  • UNComtrade

Exportaciones e Importaciones de Crudo

• Exportaciones de Crudo:
  • 1962 a 1993: UN Comtrade
  • 1994 en adelante: SESCO Downstream
  • Los datos faltantes de SESCO se completaron con MECON
  • Siguen habiendo datos faltantes para los años 1965, 1970-74, 1976-78, 1980-84

expo_usd_crudo = read.csv("../resultados/data_viz/expo_usd_crudo.csv")
expo_q_crudo = read.csv("../resultados/data_viz/expo_q_crudo.csv")

expo_q_crudo %>%
  select(-expo_crudo) %>%
  gather(key = fuente, value = valor , 3:ncol(.)) %>%
  ggplot(aes(x = anio, y = valor, color =fuente ))+
  geom_line()

expo_usd_crudo %>%
  select(-expo_crudo) %>%
  gather(key = fuente, value = valor , 3:ncol(.)) %>%
  ggplot(aes(x = anio, y = valor, color =fuente ))+
  geom_line()

Exportaciones e Importaciones de Gas

• Fuentes seleccionadas:
• 1962 a 1996: UN Comtrade,
• 1997 en adelante: SESCO Downstream
• Datos faltantes para los años 1999 y 2000

expo_usd_gas = read.csv("../resultados/data_viz/expo_usd_gas.csv")
expo_q_gas = read.csv("../resultados/data_viz/expo_q_gas.csv")

expo_q_gas %>%
  select(-expo_gas) %>%
  gather(key = fuente, value = valor , 3:ncol(.)) %>%
  ggplot(aes(x = anio, y = valor, color =fuente ))+
  geom_line()

expo_usd_gas %>%
    select(-expo_gas) %>%
  gather(key = fuente, value = valor , 3:ncol(.)) %>%
  ggplot(aes(x = anio, y = valor, color =fuente ))+
  geom_line()

Empleo, Remuneraciones y Masa Salarial (CCNN)

• Salario y empleo
  • MTEySS (Base Minería e Hidrocarburos de las Cuentas Nacionales) (1996-2013)
  • Ministerio de Trabajo, Empleo y Seguridad Social - Observatorio de Empleo y Dinámica Empresarial (OEDE) (1996-2019)
  • EPH ??
    

Valor total de la producción

Criterios metodológicos

Se presentan a continuación distintas estimaciones sobre la magnitud de riqueza presente en el sector hidrocarburífero: Valor Bruto y Agregado de Producción (VBP y VA), Consumo Interemedio (CI), Masa Salarial (MS) y Excedente Bruto de Explotación (EBE). El VBP surge de la valuación de la producción a sus precios correspondientes. El VA resulta de la diferencia entre el VBP y CI, el cual puede surgir originalmente de esta resta o a partir del coeficiente técnico de la Matriz Insumo Producto (MIP). El EBE constituye la plusvalía (PV) total de la rama, es decir, la suma de la renta de la tierra (RT) más la ganancia normal (Gnorm), y se obtiene luego de descontar la MS y los impuestos específicos (Imp) del VA. En todos los casos que se presentarán a continuación, los Imp se calcularon a partir de aplicar sobre el VBP un coeficiente resultante del peso de los impuestos promedio de la MIP de 1997. Lo mismo pasa con la estimación de la depreciación de capital o consumo de capital fijo (ConsKfijo), que se obtiene a partir de aplicar la tasa de depreciación promedio resultante de los balances de YPF (1998 - 2018) sobre el total de Propiedad, Planta y Equipo (PPyE) de la rama. Esta partida se aplica para obtener el Excedente Neto de Explotación. Se presentan distintas estimaciones para el VBP, CI y MS, que luego se observarán en la formulación matemática:

• CCNN (ccnn_oficial)
  • Valores contables oficiales de las Cuentas Nacionales (sólo disponible para el período 2004-2012). Dado que se presentan series de VBP y VA, se pudo estimar el CI como la diferencia de dichas cuentas. Se procedió a separar el VBP a partir del peso del VBP de los servicios de apoyo a la extracción sobre el VBP de extracción de petróleo y gas, presente en el Cuadro de Utilización de Oferta (COU) de 2004 de INDEC. Se descontó esta proporción (resultante del 10,7%) del VBP total para obtener un VBP sólo de extracción. Dado que se posee información del salario promedio del sector y el empleo, se pudo obtener la MS resultante, tanto para el total del sector (extracción y servicios relacionados) como para sólo extracción. A partir de estos datos se elaboró un coeficiente que refleja el promedio de la proporción de la MS sobre el VBP que se utilizará en cálculos posteriores de MS total y MS de extracción.
• Estimación propia con criterio CCNN (vbp_va_ci_propia)
  • Estimación propia de los valores contables a partir de las fuentes recopiladas, siguiendo los criterios de las Cuentas Nacionales. Es decir, para obtener el VBP se valua la producción destinada al mercado interno (resultante a partir de la diferencia entre producción y exportaciones) con los precios internos y las exportaciones con los precios de exportación, valuados tipo de cambio comercial (TCC). Se procedió también a separar el VBP de extracción neto de los servicios tal como se explicó anteriormente. El CI se estimó a partir de aplicar el coeficiente técnico (ratio CI/VBP) resultante de la MIP de 1997 (equivalente a 0.272). De igual manera, para calcular la masa salarial se aplicó el coeficiente de MS mencionado anteriormente. Finalmente, como se mencionó anteriormente, el VA el EBE se calcularon a partir de las diferencias mencionadas anteriormente.
• Empalme CCNN (vbp_ccnn)
  • Estimación que toma los valores oficiales de las cuentas nacionales para el período donde se presentan datos (2004 -2012) y que imputa los valores faltantes por medio de la evolución del índice del VBP propio con criterio CCNN explicado anteriormente. Asimismo, se utilizaron los valores oficiales de la MS cuando se encontraba disponible el dato (1996-2018), mientras que se utilizó el valor propio estimado con criterio de las CCNN para los restantes años.
• Criterio Propio (pv_hidrocarburos_propia)
  • Estimación propia que refleja con mayor precisión el valor de la riqueza total presente en el sector. El VBP se obtiene a paritr de valuar la totalidad de la producción a los precios externos o de referencia internacional y con el tipo de cambio de paridad (TCP), que mide la capacidad real de compra de la moneda nacional. Sin embargo, como el CI constituye intercambios de mercancías realizadas en el ámbito nacional, dicha partida se obtiene a partir de los valores obtenidos en la serie de empalme CCNN. De igual manera, se utilizó la MS resultante de esta última estimación.

Formulación matemática de estimaciones

Valor Bruto de Producción total, estimación con criterio propio \[VBP_{propia} = (Pext_{petróleo} * Q_{petróleo} + Pext_{gas} * Q_{gas}) * TCP\]

Donde:

• \(VBP_{propia}\) = Valor Bruto de la Producción total, estimación propia
• \(Pext_{petróleo}\) = Precio de exportación o referencia internacional del petróleo crudo (según corresponda)
• \(Pext_{gas}\) = Precio de exportación o referencia internacional del gas natural (según corresponda)
• \(Q_{petróleo}\) = Cantidades producidas totales de petróleo crudo
• \(Q_{gas}\) = Cantidades producidas totales de gas natural
• \(TCP\) = Tipo de Cambio de Paridad

Valor Bruto de Producción total, estimación con criterio CCNN \[VBP_{CCNN} = (Pint_{petróleo} * QMInt_{petróleo} + Pext_{petróleo} * Expo_{petróleo} + Pint_{gas} * QMInt_{gas} + Pext_{gas} * Expo_{gas})* TCC\]

Donde:

• \(VBP_{CCNN}\) = Valor Bruto de la Producción total, estimación propia con criterio de las CCNN
• \(Pint_{petróleo}\) = Precio mercado interno del petróleo crudo
• \(Pint_{gas}\) = Precio mercado interno del gas natural
• \(QMInt_{petróleo}\) = cantidades vendidas al mercado interno de petróleo crudo
• \(QMInt_{gas}\) = cantidades vendidas al mercado interno del gas natural
• \(Expo_{petróleo}\) = exportaciones de petróleo crudo
• \(Expo_{gas}\) = exportaciones de gas natural
• \(TCC\) = Tipo de Cambio Comercial

Valor Bruto de Producción extracción, estimación con criterio CCNN

\[VBP\_extr_{CCNN} = VBP_{CCNN} * (1-prop\_servicios)\]

Donde:

• \(VBP\_extr_{CCNN}\) = Valor Bruto de la Producción extracción, estimación propia con criterio de las CCNN
• \(prop\_extr\) = proporción del VBP de servicios de apoyo sobre VBP de extracción de petróleo y gas

Proporción de los servicios de apoyo sobre la extracción de petróleo y gas
\[prop\_servicios = \frac{VBP\_servicios_{COU}}{VBP\_extr_{COU} + VBP\_servicios_{COU}}\]

Donde:

• \(VBP\_servicios_{COU}\) = VBP de servicios de apoyo del Cuadro de Utilización de Oferta
• \(VBP\_extracción_{COU}\) = VBP de extracción de petróleo y gas del Cuadro de Utilización de Oferta

Consumo Intermedio, valores oficiales de las CCNN \[ CI_{CCNN} = VBP_{CCNN} - VA_{CCNN} \]

Donde:

• \(CI_{CCNN}\) = Consumo Intermedio total, estimación propia
• \(VA_{CCNN}\) = Valor Agregado, estimación de las CCNN

Consumo Intermedio, estimación con criterio CCNN \[ CI_{CCNN} = VBP_{CCNN} * Coef\_tec \] Donde:

• \(Coef\_tec\) = Coeficiente técnico de Matriz Insumo Producto

Consumo Intermedio de extracción, estimación con criterio CCNN

\[ CI\_extr_{CCNN} = VBP\_extr_{CCNN} * Coef\_tec \]

Donde:

• $ CI_extr_{CCNN}$ = Consumo Intermedio de extracción, estimación criterio CCNN

Masa Salarial, valores oficiales de las CCNN \[MS = W * Emp * 13\] Donde:

• \(MS\) = Masa Salarial
• \(W\) = Salario anual promedio
• \(Emp\) = Empleo

Masa Salarial, estimación con criterio CCNN \[MS = VBP_{CCNN} * Coef\_MS\]

Donde:

• \(Coef\_MS\) = Coeficiente de la proporción de MS sobre VBP

Masa Salarial de extracción, estimación con criterio CCNN \[MS\_extr = VBP\_extr_{CCNN} * Coef\_MS\]

Donde:

• \(MS\_extr\) = Masa salarial del sector extracción

Valor agregado, estimación criterio CCNN \[VA_{CCNN} = VBP_{CCNN} – CI_{CCNN} \] Donde:

• \(VA_{CCNN}\) = Valor Agregado, estimación propia con criterio CCNN

Valor agregado de extracción, estimación con criterio CCNN \[VA\_extr_{CCNN} = VBP\_extr_{CCNN} – CI\_extr_{CCNN} \]

Donde:

• \(VA\_extr_{CCNN}\) = Valor Agregado de extracción, estimación propia con criterio CCNN

Valor agregado, estimación con criterio propio \[VA_{propia} = VBP_{propia} – CI\_extr_{CCNN} \]

Donde:

• \(VA_{propia}\) = Valor Agregado, estimación con criterio propio

Excedente Bruto de Explotación, estimación con criterio CCNN \[EBE_{CCNN} = VA_{CCNN} – MS \]

Excedente Bruto de Explotación de extracción, estimación con criterio CCNN \[EBE\_extr_{CCNN} = VA\_extr_{CCNN} – MS\_extr \]

Excedente Bruto de Explotación, estimación con criterio propio \[EBE_{propia} = VA_{propia} – MS\_extr \]

Donde:

• \(EBE\) = Excedente Bruto de Explotación
• \(CI\_extr_{CCNN}\) = Consumo intermedio del sector extracción, estimación con criterio CCNN

Consumo de Capital Fijo, estimación con criterio propio \[ConKfijo = PPyE * prom(\frac{Dep}{PPyE}) \]

Donde:

• \(ConKfijo\) = Consumo de Capital Fijo
• \(PPyE\)= Propiedad, Planta y Equipo neta
• $prom() $ = tasa de depreciación promedio
• \(Dep\) = Depreciaciones (cuenta gastos por naturaleza)

Plusvalía (Excedente Neto de Explotación), estimación con criterio propio \[PV_{propia} = VA_{propia} - ConKfijo - Imp \]

Donde:

• \(PV_{propia}\) = Plusvalía (Excedente Neto de Explotación)
• \(Imp\) = Impuestos normales

Fuentes para la construcción de series

• Producción de Crudo:
  • 1911 a 1992: Anuario de combustibles
  • 1993 - actualidad: SESCO Downstream
• Exportaciones de Crudo:
  • 1962 a 1993: UN Comtrade (clasificación SITC as reported)
  • 1994 en adelante: SESCO Downstream
  • Los datos faltantes de SESCO se completaron con MECON
  • Siguen habiendo datos faltantes para los años 1965, 1970-74, 1976-78, 1980-84
• Precio Mercado Interno de Crudo:
  • 1963 a 1965: Kozulj y Pistonesi - Revista IDEE ajustado con el índice del precio del Anuario de YPF
  • 1989 a 1991: Anuario de YPF
  • 1966 a 1988: Kozulj y Pistonesi - Revista IDEE
  • 1992: MECON ajustado con la variación del Índice de precios internos al por mayor (IPIM)
  • 1993 en adelante: MECON
• Precio Mercado Externo Crudo:
  • entre 1962 y 1992: precio de exportación argentina de UN Comtrade
  • entre 1993-2001 y 2004-2014: precio de exportación argentina de Mecon
  • entre 2002 y 2003: precio de exportación de Argentina de UN Comtrade (Clasificación HS as reported)
    
  • 2014 en adelante: precio de exportación argentina de Secretaría de Energía (Regalías)
  • Valores faltantes previos a 1992: Brent (Fuente: Inflation Data)
• Producción de Gas:
  • 1911 a 1992: Anuario de combustibles
  • 1993 en adelante: SESCO Downstream
• Exportaciones de gas:
  • 1962 a 1996: UN Comtrade,
  • 1997 en adelante: SESCO Downstream
  • Datos faltantes para los años 1999 y 2000
• Precio Mercado Interno de gas:
  • 1963 - 1969 & 1989 - 1992: Anuario de YPF
  • 1970 - 1988: Kozulj y Pistonesi - Revista IDEE
  • 1993 en adelante: Secretaría de Energía - Base Regalías
  • El dato del año 1992 se dividió por 10, dado que resultaba excesivamente alto, lo cual es metodológicamente inaceptable pero sirve de ejercicio.
• Precio Mercado Externo:
  • Años 1964 y 1965: Precio de importación de gas proveniente de Bolivia hacia Argentina de UN Comtrade
  • 1966 en adelante: Precio de exportacion de gas desde Bolivia a Argentina de UN Comtrade
  • Datos faltantes para los años previos a 1963 y período 1968-1971
• Valor Bruto de la Producción, Valor Agregado y Consumo Intermedio:
  • INDEC - Dirección Nacional de Cuentas Nacionales (Base Minería e Hidrocarburos de las Cuentas Nacionales). Las variables “extraccion_y_servicios_hidrocarburos” refieren a “Extracción de petróleo crudo y gas natural. Actividades de servicios relacionadas con la extracción de petróleo y gas, excepto las actividades de prospección”
  • Cálculo propio del VBP con datos datos de producción y precio internacional recopilados. Las fuentes son las siguientes (los criterios son los mismos para la utilización posterior en el cálculo de renta de la tierra hidrocarburífera por diferencial de precios, sobrevaluación cambiaria y otros mecanismos)
• Salario y empleo
  • 1960-1996: estimación a partir de aplicación del coeficiente de proporción de la masa salarial sobre el VBP
  • 1996 en adelante: Ministerio de Trabajo, Empleo y Seguridad Social - Observatorio de Empleo y Dinámica Empresarial (OEDE)
• Consumo de capital fijo
  • Coeficiente de depreciación estimado a partir de Estados Contables de YPF (1998-2018)
    

valor_total_produccion = read.csv("../resultados/data_viz/valor_total_produccion.csv")
graf_valor_produccion <- valor_total_produccion %>%
  filter(anio > 1960) %>%
  ggplot( aes(anio, valor, color = fuente))+
  geom_line(alpha = 0.7)+
  geom_point(size = 0.435, alpha = 0.2)+
  theme_classic()+
  theme(legend.position = "bottom")+
  labs(title = "Valor de la Producción hidrocarburífera",
       subtitle = "Valor total y componentes",
       y = "Millones de pesos de 2018")+
  facet_wrap(~variable)
gp <- ggplotly(graf_valor_produccion, width = 750, height = 800)
gp[['x']][['layout']][['annotations']][[2]][['x']] <- -0.11
gp %>% layout(margin = list(l = 75))

Cuentas Nacionales

Producto Interno Bruto Explotación Minas y Canteras Millones de pesos constantes. Base 1960. Valores trimestrales PIB Explotación Minas y Canteras en millones de pesos de 1960. 1970-1980

Producto Interno Bruto Explotación Minas y Canteras, Australes constantes. Base 1970.Valores trimestrales PIB Explotación Minas y Canteras en australes a precios de 1970. 1980-1990

Inversiones

Sec energia

Balances

# PENSAR ALGO ASI PERO MAS ACEPTABLE 
# graf_stock_rama <- stock_rama %>%
#   # mutate(valor = number_format(valor, big.mark = " " )) %>%
#   filter(sector != "distribucion") %>%
#   ggplot(aes(anio, valor, color = sector, shape = fuente))+
#   geom_line()+
#   geom_point(size = .8)+
#   theme(legend.position = "bottom")+
#   labs(title = "Stock de capital adelantado y activo de segmentos",
#        subtitle = "Subsectores del sector hidrocarburífero",
#        y = "Millones de pesos de 2018")+
#   theme_classic()+
#   facet_wrap(~ variable )
# 
# ggplotly(graf_stock_rama, width = 800, height = 400)

Rentabilidad

\[TG_{hidrocarburos} = \frac{PV_{hidrocarburífera}}{KTA_{hidrocarburífero}}\]

Donde:

Por empresa

Por subsector

balances_arg %>%
  # filter(unidad == "Millones de pesos") %>%
  filter(moneda == "MM_pesos") %>% # ARREGLAR !!
  group_by(fecha, sector) %>%
  summarise("TG antes de impuestos" = sum(gcia_ant,na.rm = T)/sum (KTA,na.rm = T),
         "TG despues de impuestos" = sum(gcia_ant, impuesto_gcia, na.rm = T)/sum(KTA, na.rm = T ) ) %>%
  gather(key = variable, value = valor, 3:4) %>%
  filter(variable =="TG despues de impuestos") %>%
  ggplot(aes(fecha, valor, color = sector))+
  geom_line()+
  geom_point()+
  scale_y_continuous(labels = scales::percent)+
  labs(title = "Tasa de ganancia empresas hidrocarburos",
       subtitle =  "Antes y después de impuestos")+
  theme(axis.text.x = element_text(angle = 90))+
  facet_wrap(~variable)

Renta de la tierra hidrocarburífera

Método directo (descuentos sobre el VBP)

Método indirecto (suma de mecanismos)

Diferencial de precios

Sobrevaluacion cambiaria

Impuestos específicos